﻿Public Class Confirm

    Private Sub btnPending_Click(sender As System.Object, e As System.EventArgs) Handles btnPending.Click
        If Not IsNumeric(txtPending.Text) Then
            MessageBox.Show("Silakan masukkan interval pending yang benar.")
            Exit Sub
        End If

        My.Settings.PendingInterval = txtPending.Text * 60000
        Me.DialogResult = Windows.Forms.DialogResult.Retry
        Me.Close()
    End Sub

    Private Sub btnHibernate_Click(sender As System.Object, e As System.EventArgs) Handles btnHibernate.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        btnHibernate_Click(sender, e)
    End Sub
End Class